-- background: 2739 from stack: in.1
-- bmap block id: 2387
-- flags: 0000
-- background id: 0
-- name: 


-- part 1 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=225 top=116 right=138 bottom=287
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 14
-- style flags: 256
-- line height: 18
-- part name: PCT


-- part 2 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=155 top=176 right=198 bottom=254
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 14
-- style flags: 256
-- line height: 18
-- part name: OW
----- HyperTalk script -----
on mouseUp
  put empty into field "NW"
  ask "Enter original width:"
  put it into field "OW"
end mouseUp


-- part 3 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=259 top=176 right=198 bottom=358
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 14
-- style flags: 256
-- line height: 18
-- part name: NW
----- HyperTalk script -----
on mouseUp
  put empty into field "NL"
  ask "Enter new width:"
  put it into field "NW"
end mouseUp


-- part 4 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=155 top=233 right=255 bottom=254
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 14
-- style flags: 256
-- line height: 18
-- part name: OL
----- HyperTalk script -----
on mouseUp
  put empty into field "NL"
  ask "Enter original length:"
  put it into field "OL"
end mouseUp


-- part 6 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=447 top=79 right=129 bottom=497
-- title width / last selected line: 0
-- icon id / first selected line: 27056 / 27056
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Go Figure
----- HyperTalk script -----
on mouseUp
  if field "NL" is empty then
    figureLength
  else
    figureWidth
  end if
end mouseUp

on figureLength
  put the value of field "NW" / field "OW" * 100 into temp1
  put the round of temp1 into field "PCT"
  put the value of field "OL" * field "PCT" / 100 into field "NL"
end figureLength

on figureWidth
  put the value of field "NL" / field "OL" * 100 into temp3
  put the round of temp3 into field "PCT"
  put the value of field "OW" * field "PCT" / 100 into field "NW"
end figureWidth



-- part 5 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=259 top=233 right=255 bottom=358
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 14
-- style flags: 256
-- line height: 18
-- part name: NL
----- HyperTalk script -----
on mouseUp
  put empty into field "NW"
  ask "Enter new length:"
  put it into field "NL"
end mouseUp


-- part 7 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=443 top=24 right=74 bottom=501
-- title width / last selected line: 0
-- icon id / first selected line: 7012 / 7012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Photo
----- HyperTalk script -----
on mouseUp
  repeat with x = 1 to 5
    put empty into field x
  end repeat
  answer "Do you wish the width in inches or picas?" with "Inches" or "Picas"
  put it into ami1
  put "Width/" & ami1 into field "Width"
  ask "Original width of photo:"
  put it into field "OW"
  ask "New width of photo:"
  put it into field "NW"
  answer "Do you wish the length in inches or picas?" with "Inches" or "Picas"
  put it into ami2
  put "Length/" & ami2 into field "Length"
  ask "Original length of photo:"
  put it into field "OL"
  ask "New length of photo:"
  put it into field "NL"
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=456 top=139 right=169 bottom=490
-- title width / last selected line: 0
-- icon id / first selected line: 20098 / 20098
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Go home
----- HyperTalk script -----
on mouseUp
  go Home
end mouseUp



-- part 9 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=4 top=130 right=176 bottom=47
-- title width / last selected line: 0
-- icon id / first selected line: 1020 / 1020
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Help
----- HyperTalk script -----
on mouseUp
  show field "Help screen"
end mouseUp



-- part 10 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=0 top=77 right=126 bottom=52
-- title width / last selected line: 0
-- icon id / first selected line: 2 / 2
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Converter
----- HyperTalk script -----
on mouseUp
  Ask "Enter fraction or decimal: (Ex: 15/16 or .93)"
  put it into temp
  show field "converter"
  find temp in field "converter"
end mouseUp



-- part 13 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=47 top=78 right=111 bottom=186
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: converter
----- HyperTalk script -----
on mouseUp
  hide field "converter"
end mouseUp


-- part 15 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=29 top=242 right=340 bottom=482
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Help screen
----- HyperTalk script -----
on mouseUp
  hide field "Help screen"
end mouseUp



-- part 16 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=194 top=142 right=162 bottom=318
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 14
-- style flags: 10496
-- line height: 18
-- part name: Width
----- HyperTalk script -----
on mouseUp
  if field "Width" = "Width/Inches" then
    convertPicas
  else
    convertInches
  end if
end mouseUp

on convertPicas
  put field "OW" * 6 into field "OW"
  put field "NW" * 6 into field "NW"
  put "Width/Picas" into field "Width"
end convertPicas

on convertInches
  put field "OW" / 6 into field "OW"
  put field "NW" / 6 into field "NW"
  put "Width/Inches" into field "Width"
end convertInches



-- part 17 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=194 top=201 right=221 bottom=318
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 14
-- style flags: 10496
-- line height: 18
-- part name: Length
----- HyperTalk script -----
on mouseUp
  if field "Length" = "Length/Inches" then
    convertPicas
  else
    convertInches
  end if
end mouseUp

on convertPicas
  put field "OL" * 6 into field "OL"
  put field "NL" * 6 into field "NL"
  put "Length/Picas" into field "Length"
end convertPicas

on convertInches
  put field "OL" / 6 into field "OL"
  put field "NL" / 6 into field "NL"
  put "Length/Inches" into field "Length"
end convertInches